Namespace Owner.Framework.Web.Forms
  Partial Class Forms_FrmMessages
    Inherits Tafi.Portal.UI.PortalPage

    Private Msg As String
    Private Pagina As String

    Protected Sub Page_Load1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
      Try
        ObtenerVariables()

        HdnContent.Value = Msg

        Owner.Framework.Web.CommonFunctions.EjecutarScript("document.getElementById('Content').innerHTML=document.getElementById('" & HdnContent.ClientID & "').value;", Me)

        btnCargar.Visible = (Pagina <> "")
      Catch ex As Exception
        Throw ex
      End Try
    End Sub

    Protected Sub btnCargar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCargar.Click
      Try
        Response.Redirect(Pagina)
      Catch ex As Exception
        Throw ex
      End Try
    End Sub

    Private Sub ObtenerVariables()
      Pagina = Request.QueryString("Pagina")
      Msg = ""
      If Session("MSG") IsNot Nothing Then
        Msg = Session("MSG")
      End If
    End Sub

  End Class
End Namespace